object frmAlternativa: TfrmAlternativa Left = 202 Top = 104 BorderStyle = bsNone Caption = 'Alternativa' ClientHeight = 383 ClientWidth = 677 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Shape1: TShape Left = 0 Top = 0 Width = 677 Height = 383 Align = alClient end object Label2: TLabel Left = 16 Top = 336 Width = 155 Height = 29 Caption = 'Condom�nios' Font.Charset = ANSI_CHARSET Font.Color = clGray Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object Shape2: TShape Left = 224 Top = 340 Width = 65 Height = 5 Pen.Color = clRed Pen.Width = 3 end object Shape3: TShape Left = 224 Top = 356 Width = 65 Height = 5 Pen.Width = 3 end object Label1: TLabel Left = 304 Top = 334 Width = 65 Height = 13 Caption = 'A ser utilizado' Transparent = True end object Label4: TLabel Left = 304 Top = 350 Width = 23 Height = 13 Caption = 'Livre' Transparent = True end object Label6: TLabel Left = 92 Top = 10 Width = 510 Height = 64 Alignment = taCenter Caption = 'O condom�nio em que ia trabalhar est� a ser utilizado noutro pos' + 'to.'#13#10'Segue-se a lista de condom�nios existentes e a sua situa��o' + '.'#13#10'Seleccione um condom�nio livre para trabalhar e fa�a DBClick ' + 'ou prima o bot�o Seleccionar.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object Memo1: TMemo Left = 504 Top = 280 Width = 185 Height = 209 Lines.Strings = ( '') TabOrder = 3 Visible = False end object BitBtn1: TBitBtn Left = 481 Top = 336 Width = 90 Height = 25 Caption = '&Seleccionar' TabOrder = 0 OnClick = BitBtn1Click Kind = bkOK end object RxDBGrid1: TRxDBGrid Left = 14 Top = 77 Width = 650 Height = 239 Color = clWhite Ctl3D = True DataSource = DataSource1 FixedColor = 13551795 Options = [dgTitles, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentCtl3D = False TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDblClick = RxDBGrid1DblClick OnGetCellParams = RxDBGrid1GetCellParams Columns = < item Expanded = False FieldName = 'Condom�nio' Width = 234 Visible = True end item Expanded = False FieldName = 'Pessoa Colectiva' Width = 150 Visible = True end item Expanded = False FieldName = 'Contr.' Width = 150 Visible = True end item Expanded = False FieldName = 'Ano' Width = 60 Visible = True end item Expanded = False FieldName = 'ID' Title.Caption = 'C�d.' Width = 35 Visible = True end> end object BitBtn2: TBitBtn Left = 580 Top = 336 Width = 90 Height = 25 Caption = '&Terminar' TabOrder = 2 Kind = bkCancel end object BitBtn3: TBitBtn Left = 380 Top = 336 Width = 90 Height = 25 Caption = '&Actualizar' Default = True TabOrder = 4 OnClick = BitBtn3Click Glyph.Data = { F6000000424DF60000000000000076000000280000000F000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333444 4430333333333CCC4330334433333CCC43303CC433333CC4C4303C4333333C33 CC40C433333333333C40C433333333333C40C433333333333C40C43333333333 3C40C433333333333C403C4333333333CC403CC43333333CC43033CC433333CC 4330333CC44444C4333033333CCCCC3333303333333333333330} end object BitBtn4: TBitBtn Left = 577 Top = 16 Width = 90 Height = 25 Caption = 'S� &Consulta' TabOrder = 5 Visible = False Kind = bkIgnore end object Table1: TTable Filtered = True Left = 16 Top = 8 object Table1ID: TAutoIncField FieldName = 'ID' ReadOnly = True end object Table1Condomnio: TStringField FieldName = 'Condom�nio' Size = 50 end object Table1PessoaColectiva: TStringField FieldName = 'Pessoa Colectiva' Size = 80 end object Table1Contr: TStringField FieldName = 'Contr.' Size = 12 end object Table1Ano: TSmallintField FieldName = 'Ano' end object Table1Moeda: TStringField FieldName = 'Moeda' Size = 10 end object Table1Dados: TStringField FieldName = 'Dados' Size = 50 end object Table1TipoQuota: TStringField FieldName = 'Tipo Quota' Size = 10 end object Table1Descrio: TStringField FieldName = 'Descri��o' Size = 80 end object Table1AnoFim: TSmallintField FieldName = 'Ano Fim' end end object DataSource1: TDataSource DataSet = Table1 Left = 48 Top = 8 end object Table2: TTable Left = 80 Top = 8 end end